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SUBROUTINE AVERAGE (INDATA, COUNT, MAX, MIN, AVG, RMS) 



INTEGER COUNT 

REAL INDATA (COUNT), MAX, MIN, AVG, RMS 



1000 



C These are the inputs and outputs to the function 



c 


name 


type 


mode 


length 


description 
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REAL SUM, RMSSUM 
INTEGER I 
C These are internal variables 
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C Initialization of internal variables 
SUM = 0.0 
RMSSUM = 0.0 
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1012 



C Main Loop proper 

DO 100 =1, COUNT 

. IF (INDATA (I) .LT. MIN) THEN 

MIN= INDATA (I) f- 1008 

ENDIF j 
IF (INDATA (I) .GT. MAX) THEN 
MAX= INDATA (I) f-1010 
ENDIF 
SUM = SUM + INDATA (I) 

RMSSUM = RMSSUM + INDATA (I) * INDATA (I) 
100 CONTINUE ^1014 
C End of main loop 



C Calculate average, RMS 1016 
AVG = SUM / COUNT ^ 
RMSSUM = SQRT (RMSSUM /COUNT) 
END 
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